home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 July
/
EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso
/
recent2
/
quilld.lha
/
Demo
/
Rexx
/
NextError.quill
< prev
next >
Wrap
Text File
|
1995-08-29
|
1KB
|
53 lines
/**
** $VER: NextError.quill 1.0 (24.7.94)
** By Timothy J. Aston
**
**/
/* Some setup first.
*/
options results
options failat 200
NL = d2c(10)
main:
/* Open the errors file.
*/
if open('errors_fh', 't:Quill_Errors', 'R') then do
'GETATTR' 'PROJECT FILE VAR' filename
'GETATTR' 'PROJECT LINE VAR' linenum
/* Read all the errors into a stem.
*/
ok = TRUE
do while ~eof('errors_fh') & ok = TRUE
errorfile = strip(readln('errors_fh'), 'B')
errorline = strip(readln('errors_fh'), 'B')
errorcol = strip(readln('errors_fh'), 'B')
errordesc = strip(readln('errors_fh'), 'B')
call readln('errors_fh')
call readln('errors_fh')
if errorfile = filename & errorline > linenum then do
'GOTOLINE' errorline
'SETSTATUSBAR' errordesc
ok = FALSE
end
end
if ok = TRUE then do
'REQUESTNOTIFY' '"No more errors in this file"'
end
close('errors_fh');
end
/* Or if its not there, we have no errors.
*/
else
'REQUESTNOTIFY' '"No errors"'
exit